   1 .
   2 .
   3 .
  10 clear ;FC=7;BC=8
  20 CY=0
  30 print "    LUNAR LANDER"
  40 for A=1to 1000
  42 NT=0
  50 next A
 100 clear ;&(23)=255
 110 BC=0;FC=126;NT=0
 120 T=0
 130 for A=-80to 80
 140 T=T+rnd (5)-3
 150 if T<0T=0
 160 line A,-44,0;line A,T-44,1
 170 next A
 180 for A=1to 51
 185 box rnd (160)-80,rnd (88)-44,1,1,1
 195 next A
 200 .GO
 210 G=0;F=36;X=-78;Y=43
 220 box X,Y,3,3,3
 230 if F>0U=TR(1)
 240 if F<1U=0
 250 if Ubox X,Y-2,1,3,3
 260 B=X;C=Y
 270 if U&(21)=255
 280 if U=0&(21)=0
 290 G=G+8-20mul U
 300 Y=Y-Gdiv 25
 310 X=X+1
 320 if U=1F=F-1
 330 CX=-20
 340 CY=44
 350 print #3,F,#4,Y+42,#4,-Gdiv 10
 353 if F>0if F<7print "LOW ON FUEL"
 354 if F<1print "OUT OF FUEL"
 360 if Ubox B,C-2,1,3,3
 370 if PX(B-1,C-3)=1if PX(B,C-3)=1if PX(B+1,C-3)=1goto 1000
 375 if Y<-42goto 1000
 380 box B,C,3,3,3
 390 goto 220
1000 if G>80goto 2000
1005 clear ;&(21)=0;NT=3
1010 box 0,-40,158,6,1
1020 for A=1to 50
1030 box rnd (160)-80,rnd (88)-44,1,1,1
1040 next A
1050 box 0,-20,30,10,1
1060 box 0,0,20,30,1
1070 line 0,0,0;line -40,-40,1;line 40,-40,1;line 0,0,1
1080 line 0,-20,0;line -40,-40,1;line 40,-40,1;line 0,-20,1
1095 CY=44
1100 if G<20print "A PERFECT LANDING";goto 40
1110 if G<30print "ROUGH LANDING";goto 40
1120 CY=44
1130 print "DAMAGED LANDING GEAR"
1140 box 0,-10,38,60,2
1150 box 0,-30,30,10,1;box 0,-10,20,30,1
1160 if G<40goto 40
1170 print "SEVERE DAMAGE"
1171 for A=1to 20
1172 box 0,-30,rnd (35),rnd (12),3;&(21)=255
1173 &(21)=5
1174 next A
1175 if G<60print "DECENT MODULE DESTROYED";&(21)=0;goto 40
1180 print "YOU ARE STRANDED"
1200 CY=44
1205 for A=1to 20
1210 &(21)=255;BC=7
1215 box 0,-10,rnd (20),rnd (30),3
1220 &(21)=0;BC=0
1225 next A
1230 print "   YOU JUST WASTED    "
1240 print "10 BILLON DOLLARS"
1250 goto 40
2000 for A=-40to 40step 2
2010 line X,-40,0
2020 BC=A;&(21)=255
2030 line A+X,rnd (40)-20,3
2040 BC=0;&(21)=0
2050 next A
2060 box X,0,80,80,2
2070 for A=0to 30
2080 box X+rnd (70)-35,rnd (80)-40,1,1,1
2090 next A
2100 CY=44
2110 print "YOU JUST MADE A CRATER"
2120 print "  TWO MILES WIDE"
2200 goto 40
>:return 
